home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / MultiScroller.AMOS / MultiScroller.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-20  |  2.4 KB  |  75 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Degree 
  10. Dim A$(7)
  11.  
  12. For N=7 To 0 Step -1
  13.    
  14.    
  15.    Screen Open N,640,(N+1)*32,2,Lowres
  16.    Curs Off 
  17.    Palette Rnd(4095)
  18.    
  19.    Locate 0,0
  20.    Read Q$ : Centre Q$
  21.    Locate 0,N*4+2
  22.    Read W$ : Centre W$
  23.    
  24.    Screen Display N,140,148-N*15,320,(N+1)*32
  25.    
  26.    Channel N To Screen Offset(N)
  27.    
  28.    
  29.    A$(N)="S:M321,0,321;M0,0,Z(250);M-321,0,321;P;JS"
  30.    Amal N,A$(N)
  31.    
  32. Next 
  33.  
  34. For N=0 To 7
  35.    Amal On N
  36.    Wait 5
  37. Next 
  38.  
  39. Repeat 
  40.    X=280+Sin(C)*A
  41.    Y=157+Cos(C)*A
  42.    X Mouse=X
  43.    Y Mouse=Y
  44.    If R=0 Then Inc A
  45.    If R=-1 Then Dec A
  46.    If A>120 Then R=-1
  47.    If A<2 Then R=0
  48.    Inc C
  49. Until Key State(69)
  50. Wait Key 
  51. Edit 
  52.  
  53. Data " * Howdy alla AMOS-k�dare!!! Hoppas ni gillar denna hypnotiska textskr�ll!!! *  "
  54. Data " Hjalmar S�derberg, Willie Craaford, Orup, Nisse, Vera, Loffe, Knutte mfl........"
  55.  
  56. Data " Jag skulle vilja ge lite credits till: PG Games, Rising Software, Hellware   "
  57. Data " Liam Howlett, Julia Ceasar, Klabbarparn, Sj�kvisten, Acen, SL2, Jonny L, Erland"
  58.  
  59. Data " Damm, The Caos Warriors, Gammer, Bajl�dan, Clownen Manne, Fr�ken Sol, CP-�ke"
  60. Data " Grabben Brockel, Piskan, Pulvret, Mahoney & Kaktus, Jolly Jumper, Kent, Drutten"
  61.  
  62. Data " Ernst-Hugo J�reg�rd, Rreine Brynolfsson, Calle Dernulf, Fr�ken Bl�sippa, M�lle"
  63. Data " Todd Terry, Photec, LTJ Buchem, Alex Reese, Dave Angel, Howie B, Agroman, Mulle"
  64.  
  65. Data " Fredrik Z, Jonas N, Sempers barnmat, Chaques Chirac, Arvid, Drum n Base-Gunnar"
  66. Data " Strindberg, Hugo, Oskar, Ullis, Bejve, Photogenic, Peanut Planet, Ren & Stimpy"
  67.  
  68. Data " Delta Software, Fisk-Gunnar, Bullibumpa, Wesley Snipes, Leopold, Tyra Trollpacka"
  69. Data " Babaperiba, Hyllan, Kuben, Gurra G, Svullo, Obiaman, Dina & Dessi, Olle, Musse"
  70.  
  71. Data " Farbror Bosse, Kermit Grankvist, Maria-Pia, Arvid Stj�rnblom, Acke Plack, Firre"
  72. Data " Bompa Bompa, Annorna, Rave-Nissen, Luffaren, Bellon, Lundmarkaren, Julle, Rille"
  73.  
  74. Data " Douglas Adams, DJ Diskborste, DJ Hype, DJ Rasmus, DJ Floppydisk, DJ Delirium"
  75. Data " DJ F�rl�ngningssladd, DJ Myrstack, MC Motorv�g, MC Ello, MC Dogfood, MC Wettex"